home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / dept11.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  8KB  |  227 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,gMovieList,movieNo,movieName
  2.  
  3.  
  4.  
  5. on moveMan direction
  6.   put stepNo + 1 into stepNo
  7.   if direction = 8 then
  8.     put 0 into moveH
  9.     put -9 into moveV
  10.     put 0 into RmoveH
  11.     put -72 into RmoveV
  12.     put 19 into startCast
  13.     put 22 into endCast
  14.   else if direction = 2 then
  15.     put 0 into moveH
  16.     put 9 into moveV
  17.     put 0 into RmoveH
  18.     put 72 into RmoveV
  19.     put 15 into startCast
  20.     put 18 into endCast
  21.   else if direction = 4 then
  22.     put -12 into moveH
  23.     put 0 into moveV
  24.     put -48 into RmoveH
  25.     put 0 into RmoveV
  26.     put 23 into startCast
  27.     put 26 into endCast
  28.   else if direction = 6 then
  29.     put 12 into moveH
  30.     put 0 into moveV
  31.     put 48 into RmoveH
  32.     put 0 into RmoveV
  33.     put 27 into startCast
  34.     put 30 into endCast
  35.   end if
  36.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  37.     SET THE CASTNUM OF SPRITE 13 TO startCast
  38.     UPDATESTAGE
  39.     mMove girl1
  40.     mMove girl2
  41.     EXIT
  42.   END IF
  43.   if direction = 2 then
  44.     repeat with spno in gEntranceList
  45.       if sprite 14 intersects spno then
  46.         if spno = 29 then
  47.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  48.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  49.           UPDATESTAGE
  50.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  51.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  52.           UPDATESTAGE
  53.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  54.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  55.           UPDATESTAGE
  56.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  57.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  58.           UPDATESTAGE
  59.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  60.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  61.           UPDATESTAGE
  62.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  63.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  64.           UPDATESTAGE
  65.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  66.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  67.           UPDATESTAGE
  68.           SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  69.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 12
  70.           UPDATESTAGE
  71.           put 393 into manH
  72.           put 155 into manV
  73.           put 385 into raderH
  74.           put 146 into raderV
  75.           play done        
  76.           exit
  77.         end if
  78.       end if
  79.     end repeat
  80.   end if
  81.   if direction = 8 then
  82.     repeat with spno in gEntranceList
  83.       if sprite 14 intersects spno then
  84.         if spno = 34 then
  85.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 5
  86.           UPDATESTAGE
  87.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 5
  88.           UPDATESTAGE
  89.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 5
  90.           UPDATESTAGE
  91.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 10
  92.           UPDATESTAGE
  93.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 15
  94.           UPDATESTAGE
  95.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  96.           UPDATESTAGE
  97.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  98.           UPDATESTAGE
  99.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  100.           UPDATESTAGE
  101.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  102.           UPDATESTAGE
  103.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  104.           UPDATESTAGE
  105.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  106.           UPDATESTAGE
  107.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  108.           UPDATESTAGE
  109.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  110.           UPDATESTAGE
  111.           SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 - 20
  112.           UPDATESTAGE
  113.           put 393 into manH
  114.           put 155 into manV
  115.           put 385 into raderH
  116.           put 146 into raderV
  117.           play movie "DEPT12.DIR"        
  118.         end if
  119.       end if
  120.     end repeat
  121.   end if
  122.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  123.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  124.   updateStage
  125.   if stepNo >= 5 then
  126.     repeat with spno in gGirlList
  127.       if sprite 14 intersects spno then
  128.         if random(20) = 2 then
  129.           go to marker(1)
  130.           
  131.           nanpa
  132.           
  133.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  134.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  135.           exit
  136.         end if
  137.         put getaProp(gMovieList,spno) into movieNo
  138.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  139.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  140.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  141.         puppetSprite 48, False
  142.         updateStage
  143.         sound stop 1
  144.         put "D" into movieName
  145.         playQTMovie
  146.         put value(Hpoint) into thisHpoint
  147.         if thisHpoint > 0 then
  148.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  149.         else
  150.           put abs(thisHpoint) into Hpoint
  151.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  152.         end if
  153.         put totalHpoint + thisHpoint into totalHpoint
  154.         put totalHpoint into field "Hpoint"
  155.         put 0 into stepNo
  156.         EXIT
  157.       END IF
  158.     END REPEAT
  159.   end if
  160.   repeat with spno in gBlockList
  161.     if sprite 14 intersects spno then
  162.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  163.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  164.       UPDATESTAGE
  165.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  166.       UPDATESTAGE
  167.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  168.       UPDATESTAGE
  169.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  170.       UPDATESTAGE
  171.       SET THE CASTNUM OF SPRITE 13 TO startCast
  172.       UPDATESTAGE
  173.       mMove girl1
  174.       mMove girl2
  175.       EXIT
  176.     end if
  177.   end repeat
  178.   IF NOT(SPRITE 14 WITHIN 3) THEN
  179.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  180.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  181.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  182.     UPDATESTAGE
  183.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  184.     UPDATESTAGE
  185.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  186.     UPDATESTAGE
  187.     SET THE CASTNUM OF SPRITE 13 TO startCast
  188.     UPDATESTAGE
  189.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  190.     UPDATESTAGE
  191.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  192.     UPDATESTAGE
  193.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  194.     UPDATESTAGE
  195.     SET THE CASTNUM OF SPRITE 13 TO startCast
  196.     UPDATESTAGE
  197.     mMove girl1
  198.     mMove girl2
  199.   ELSE
  200.     if direction = 8 or direction = 2 then
  201.       put 2 into step
  202.     else
  203.       put 1 into step
  204.     end if
  205.     repeat with i = 1 to step
  206.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  207.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  208.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  209.       UPDATESTAGE
  210.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  211.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  212.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  213.       UPDATESTAGE
  214.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  215.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  216.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  217.       UPDATESTAGE
  218.       SET THE CASTNUM OF SPRITE 13 TO startCast
  219.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  220.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  221.       UPDATESTAGE
  222.     end repeat
  223.     mMove girl1
  224.     mMove girl2
  225.   END IF
  226. end
  227.